home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0034_Get MASK from path-mask.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  689b  |  21 lines

  1. {*****************************************************************************
  2.  * Function ...... GetMask()
  3.  * Purpose ....... To return the mask from a path/mask string
  4.  * Parameters .... Path       String to extract the mask from
  5.  * Returns ....... The file mask portion of <Path>
  6.  * Notes ......... None
  7.  * Author ........ Martin Richardson
  8.  * Date .......... May 13, 1992
  9.  *****************************************************************************}
  10. TYPE
  11.      String13 = STRING[13];
  12. FUNCTION GetMask( Path: DirStr ): String13;
  13. VAR dir  : DirStr;
  14.     name : NameStr;
  15.     ext  : ExtStr;
  16. BEGIN
  17.      FSPLIT( path, dir, name, ext );
  18.      GetMask := name + ext;
  19. END;
  20.  
  21.